home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / xceedzip / FRMRESUL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-26  |  2.9 KB  |  70 lines
  1. VERSION 5.00
  2. Begin VB.Form frmResults 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Operation results"
  5.    ClientHeight    =   3270
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   9705
  9.    Icon            =   "frmResults.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3270
  14.    ScaleWidth      =   9705
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.CommandButton cmdOk 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "&Close"
  19.       Height          =   375
  20.       Left            =   8385
  21.       TabIndex        =   1
  22.       Top             =   2790
  23.       Width           =   1215
  24.    End
  25.    Begin VB.TextBox txtResults 
  26.       Height          =   2535
  27.       Left            =   90
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   2  'Vertical
  30.       TabIndex        =   0
  31.       Top             =   120
  32.       Width           =   9495
  33.    End
  34. Attribute VB_Name = "frmResults"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Option Explicit
  40. '============================================================================
  41. ' Description: The frmResults form acts as an operation or event log. It
  42. '              lists all file operations, errors and warnings that the
  43. '              xZip objects's events provide information on. The window
  44. '              is displayed when an operation completes.
  45. '============================================================================
  46. '------------------------------------------------------------------------------------
  47. ' Outputs a message in the txtResults corresponding to the current events
  48. ' triggered by xZip's operations.
  49. '------------------------------------------------------------------------------------
  50. Public Sub AddMessage(sMessage As String)
  51.     txtResults.Text = txtResults.Text & sMessage & vbCrLf
  52. End Sub
  53. '------------------------------------------------------------------------------------
  54. ' Return if text box contains at least a message or not
  55. '------------------------------------------------------------------------------------
  56. Public Function HasMessages() As Boolean
  57. End Function
  58. '------------------------------------------------------------------------------------
  59. '------------------------------------------------------------------------------------
  60. Private Sub cmdOk_Click()
  61.     Hide
  62. End Sub
  63. '------------------------------------------------------------------------------------
  64. ' Prevents the user from typing in the data output textbox without
  65. ' having to disable it.
  66. '------------------------------------------------------------------------------------
  67. Private Sub txtResults_KeyPress(KeyAscii As Integer)
  68.     KeyAscii = 0
  69. End Sub
  70.